home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8505.arc / BUG1.PAS < prev    next >
Pascal/Delphi Source File  |  1986-09-14  |  1KB  |  42 lines
  1. { BUG1.PAS                                           }
  2. { This program demonstrates how MS-Pascal 3.13 gets  }
  3. { confused by extra parentheses around REAL library  }
  4. { functions.                                         }
  5. {                                                    }
  6.  
  7. PROGRAM bug1(output) ;
  8.  
  9.   VAR
  10.     x : real4 ;
  11.     y : real8 ;
  12.  
  13.   BEGIN {bug1}
  14.     x := 55.55 ;
  15.     y := 55.55 ;
  16.     writeln('BUG1 RESULTS') ;
  17.     writeln(' cos(x)  = ',cos(x)) ;
  18.     writeln('(cos(x)) = ',(cos(x))) ;
  19.     writeln(' cos(y)  = ',cos(y)) ;
  20.     writeln('(cos(y)) = ',(cos(y))) ;
  21.     writeln ;
  22.     writeln(' exp(x)  = ',exp(x)) ;
  23.     writeln('(exp(x)) = ',(exp(x))) ;
  24.     writeln(' exp(y)  = ',exp(y)) ;
  25.     writeln('(exp(y)) = ',(exp(y))) ;
  26.     writeln ;
  27.     writeln(' ln(x)  = ',ln(x)) ;
  28.     writeln('(ln(x)) = ',(ln(x))) ;
  29.     writeln(' ln(y)  = ',ln(y)) ;
  30.     writeln('(ln(y)) = ',(ln(y))) ;
  31.     writeln ;
  32.     writeln(' sin(x)  = ',sin(x)) ;
  33.     writeln('(sin(x)) = ',(sin(x))) ;
  34.     writeln(' sin(y)  = ',sin(y)) ;
  35.     writeln('(sin(y)) = ',(sin(y))) ;
  36.     writeln ;
  37.     writeln(' sqrt(x)  = ',sqrt(x)) ;
  38.     writeln('(sqrt(x)) = ',(sqrt(x))) ;
  39.     writeln(' sqrt(y)  = ',sqrt(y)) ;
  40.     writeln('(sqrt(y)) = ',(sqrt(y))) ;
  41.   END. {bug1}
  42.